home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbasicpg.zip
/
QUESTION.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-08-31
|
488b
|
19 lines
' QUESTION.BAS
' This program asks the user a question about programming in BASIC.
CLS
INPUT "Do you like programming in BASIC so far (Y,N)? ", reply$
PRINT
IF (reply$ = "Y") OR (reply$ = "y") THEN
PRINT "Great! There's more fun to come!"
ELSEIF (reply$ = "N") OR (reply$ = "n") THEN
PRINT "Sorry to hear that. Don't worry--it gets better!"
ELSE
PRINT "Please run the program again."
PRINT "Enter 'Y' for Yes or 'N' for No at the prompt."
END IF